home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / virtltxt / about.frm next >
Text File  |  1994-01-22  |  3KB  |  97 lines

  1. VERSION 2.00
  2. Begin Form About 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "About Virtual Text Browser"
  5.    ClientHeight    =   2580
  6.    ClientLeft      =   2190
  7.    ClientTop       =   2340
  8.    ClientWidth     =   5070
  9.    ControlBox      =   0   'False
  10.    FontBold        =   -1  'True
  11.    FontItalic      =   -1  'True
  12.    FontName        =   "MS Sans Serif"
  13.    FontSize        =   8.25
  14.    FontStrikethru  =   0   'False
  15.    FontUnderline   =   0   'False
  16.    Height          =   2955
  17.    Left            =   2145
  18.    LinkMode        =   1  'Source
  19.    LinkTopic       =   "Form1"
  20.    MaxButton       =   0   'False
  21.    MinButton       =   0   'False
  22.    ScaleHeight     =   2580
  23.    ScaleWidth      =   5070
  24.    Top             =   2010
  25.    Width           =   5160
  26.    Begin CommandButton Command1 
  27.       Caption         =   "OK"
  28.       Default         =   -1  'True
  29.       Height          =   375
  30.       Left            =   2100
  31.       TabIndex        =   3
  32.       Top             =   1920
  33.       Width           =   975
  34.    End
  35.    Begin Label Label1 
  36.       AutoSize        =   -1  'True
  37.       Caption         =   "CompuServe ID: 76030,270"
  38.       Height          =   195
  39.       Left            =   1350
  40.       TabIndex        =   4
  41.       Top             =   1530
  42.       Width           =   2355
  43.    End
  44.    Begin Label Label4 
  45.       Alignment       =   2  'Center
  46.       Caption         =   "Robert Risholm"
  47.       FontBold        =   -1  'True
  48.       FontItalic      =   0   'False
  49.       FontName        =   "MS Sans Serif"
  50.       FontSize        =   9.75
  51.       FontStrikethru  =   0   'False
  52.       FontUnderline   =   0   'False
  53.       Height          =   255
  54.       Left            =   540
  55.       TabIndex        =   2
  56.       Top             =   1095
  57.       Width           =   4095
  58.    End
  59.    Begin Label Label3 
  60.       Alignment       =   2  'Center
  61.       Caption         =   "Version 0.9 beta"
  62.       Height          =   255
  63.       Left            =   1680
  64.       TabIndex        =   1
  65.       Top             =   720
  66.       Width           =   1695
  67.    End
  68.    Begin Label Label2 
  69.       Alignment       =   2  'Center
  70.       Caption         =   "Virtual Text Browser"
  71.       FontBold        =   -1  'True
  72.       FontItalic      =   0   'False
  73.       FontName        =   "MS Sans Serif"
  74.       FontSize        =   13.5
  75.       FontStrikethru  =   0   'False
  76.       FontUnderline   =   0   'False
  77.       Height          =   375
  78.       Left            =   720
  79.       TabIndex        =   0
  80.       Top             =   240
  81.       Width           =   3615
  82.    End
  83. End
  84. 'ABOUT.FRM: VBC Version
  85.  
  86. Sub Command1_Click ()
  87.    Unload About
  88. End Sub
  89.  
  90. Sub Form_Load ()
  91.    'Center the form
  92.    About.Left = (Screen.Width - About.Width) / 2
  93.    About.Top = (Screen.Height - About.Height) / 3
  94.  
  95. End Sub
  96.  
  97.